home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Input 64
/
Input_64_85-08_1985_Verlag_Heinz_Weise_de.d64
/
S C R E
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
5KB
|
64 lines
1000 poke50257,08 :rem systempoke
1010 poke50259,001:rem untergrenze (lb)
1020 poke50260,021:rem untergrenze (hb)
1030 poke50261,003:rem obergrenze (lb)
1040 poke50262,026:rem obergrenze (hb)
1050 :
1060 fe=04352 :rem sys fenster ein
1070 fa=04601 :rem sys fenster aus
1080 :
1090 rem demo fuer screen display
1999 :
2000 poke53280,0:poke53281,0:printchr$(14)chr$(8)chr$(147);
2050 print"[158] [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
2100 [153]" (NULL) (NULL)closelenclose(NULL)closevalclosevalclose(NULL)closecloseclosestr$closeright$close(NULL)close(NULL)close(NULL)closeatnclose(NULL)close (NULL)"
2110 [153]" (NULL) von left$elmut (NULL)ape (NULL)"
2150 [153]" /tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanexp
2499 :
2500 sysfe,5,20,0,25:print"[147]";
2510 print"[205]it diesem [200]ilfsprogramm haben [211]ie die [205]oeglich- keit ";
2520 print"bis zu 8 [194]ildschirm-fenster ([215][201][206][196][207][215][211]) auf [201]h-rem [195]64 zu ";
2530 print"beherrschen."
2540 print"[158][196]ruecken [211]ie +";
2800 getg$:ifg$<>"+"andg$<>"z"then2800
2810 ifg$="z"thensysfa:printpeek(2):end
2999 :
3000 sysfe,7,18,15,21:print"[147]";
3010 print"[196]iese [215][201][206][196][207][215][211] koennensich ueberlappen. [196]er[201]nhalt der ueberdeckt";
3020 print"wird, bleibt dabei erhalten und kann mit";
3030 print"[218]urueckblaettern wie-der sichtbar gemacht werden. ";
3040 print"[196]ruecken [211]ie einmal die "chr$(34)"-"chr$(34)" [212]aste!"
3050 print"[158] oder -";
3500 getg$:ifg$<>"-"andg$<>"+"then3500
3510 ifg$="-"thensysfa:goto2800
3999 :
4000 sysfe,11,13,8,22:print"[147]";
4010 print"[196]iese [215][201][206][196][207][215]-[212]echnik kennen [211]ie vielleicht von [208]ersonalcomputern.";
4020 print"[202]etzt koennen [211]ie auchmit dem "chr$(34)"kleinen"chr$(34)" [195]64 ";
4030 print"diese [204]eistungsmerk- male nutzen."
4500 getg$:ifg$<>"-"andg$<>"+"then4500
4510 ifg$="-"thensysfa:goto3500
4999 :
5000 sysfe,6,9,4,27:print"[147][159]";
5120 print"[196]as [214]or- und [218]urueckblaet- tern wird von [194][193][211][201][195] aus je-weils mit";
5130 print" einem [211][217][211]-[193]ufruf durchgefuehrt. [196]er [208][210][201][206][212] - [194]efehl";
5140 print" schreibt nach der [198]ensterdefinition nur noch in dem neu ";
5150 print"begrenzten [194]e- reich. [196]ie [211][217][206][212][193][216] entnehmen[211]ie bitte dem [194]eiheft.";
5500 getg$:ifg$<>"-"andg$<>"+"then5500
5510 ifg$="-"thensysfa:goto4500
5999 :
6000 sysfe,9,14,19,16:print"[147]";
6120 print"[215]enn [211]ie dieses [200]ilfsprogramm "
6125 print"auf [201]hren [196]aten-traeger sichern wollen, druecken[211]ie ";
6130 print"[195][212][210][204] [211] . [196]iese [196]emonstra-tion wird dabei nicht mit";
6140 print"ge- sichert."
6500 getg$:ifg$<>"-"andg$<>"+"then6500
6510 ifg$="-"thensysfa:goto5500
6999 :
7000 sysfe,7,6,2,20:print"[147][129]";
7120 print"[205]it etwas [213]ebung koennen [211]ie interes-sante [193]nwendungsbe- reiche";
7130 print" fuer diese neue [215][201][206][196][207][215]-[212]echnik entwickeln."
7500 getg$:ifg$<>"-"andg$<>"+"then7500
7510 ifg$="-"thensysfa:goto6500
7520 fori=0to4:sysfa:nexti:goto2800